home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / UNODEMO3.SDA / BORDER DEMO (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  513b  |  25 lines
  1. 10 IF X = 0 THEN X =1:LOAD "BORDER",8,1
  2. 20 SYS 49152:S$="UP"
  3. 30 PRINT "[147]BORDER/SCREEN DEMO"
  4. 40 PRINT "1. SCROLL UP"
  5. 50 PRINT "2. SCROLL DOWN"
  6. 55 PRINT "3. REBOOT DISK"
  7. 60 GETA$:IF A$ = "" THEN GOSUB 100
  8. 70 IF A$ = "1" THEN S$ = "UP"
  9. 80 IF A$ = "2" THEN S$ = "DN"
  10. 85 IF A$ = "3" THENSYS49155:POKE53280,12:POKE53281,12:LOAD "@0:*",8
  11. 90 GOTO 60
  12. 100 IF S$ = "UP" THEN GOSUB 200
  13. 110 IF S$ = "DN" THEN GOSUB 300
  14. 120 RETURN
  15. 200 FOR X = 49185 TO 49195
  16. 210 IF PEEK(X) = 0 THEN POKE X,255:GOTO230
  17. 220 POKE X,PEEK(X)-1
  18. 230 NEXTX
  19. 240 RETURN
  20. 300 FOR X = 49185 TO 49195
  21. 310 IF PEEK(X) = 255 THEN POKEX,0:GOTO330
  22. 320 POKE X,PEEK(X)+1
  23. 330 NEXTX
  24. 340 RETURN
  25.